unit PendulumGraphSettings;

interface
uses Graphics;
type
  PendulumGraphSettings = Record
	x : real;
	y : real;
  end;

  function CreateScale(x, y : Real) : TScale;
  
implementation
	function CreateScale(x, y : Real) : TScale;
	begin
		CreateScale.x := x;
		CreateScale.y := y;
	end;
end.
